data <- read.table("./times", header=F, sep=",")
tests <- c("test1", "test2", "test3", "test4", "test5")
prg <- c("mathematica", "ginac", "sympycpp", "sage", "sympy")

	
for ( i in 1 : length(tests)) {
	testx <- data[data$V1==as.character(tests[i]),]
	for (j in 1 : length(prg)) {
		t <- testx[testx$V2==as.character(prg[j]),]
		print(c(tests[i], prg[j], round(mean(t$V3),digits=2)))
	}
}

